﻿Imports System.IO
Public Class Imagen

    Public Imagen() As Byte
    Public Function prc_ConvertFileToBinary(ByVal strPath As String)



        Dim ruta As New IO.FileStream(strPath, IO.FileMode.Open, IO.FileAccess.Read)

        Dim binario(ruta.Length) As Byte

        ruta.Read(binario, 0, ruta.Length) 'Leo el archivo y lo convierto a binario 

        Return (binario)

        ruta.Close() 'Cierro el FileStream 



        '"Binario ahora ya contiene nuestro archivo pero en binario" 

        '"Ahora es cuestion de hacer un simple INSERT y listo estar en nuestra BD" 



    End Function

    Public Sub CargarPictureConImagen(ByVal Picture As PictureBox)
        If Not Imagen Is Nothing Then
            Dim MS As New MemoryStream
            MS.Write(Imagen, 0, Imagen.GetUpperBound(0) + 1)
            Try
                Picture.Image = System.Drawing.Image.FromStream(MS)
            Catch ex As System.ArgumentException
                MessageBox.Show("Error: " & Err.Number & ". " & "El formato de la imagen no es válido", "MDI", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            MS.Close()
        End If
    End Sub

End Class
